00100	;	SUBROUTINE GCORE(NUM)
00200	TITLE	GCORE
00300	ENTRY	GCORE
00400	INTERN	PREVLC
00500	EXTERN	JOBREL
00600	PREVLC:	0
00700	TEMP:	BLOCK	1
00800	GCORE:	0
00900		MOVEM	1,TEMP
00950		MOVE	1,PREVLC
00975		JUMPG	1,OVERR
00987		MOVE	1,JOBREL
00993		MOVEM	1,PREVLC
01000	OVERR:	MOVE	1,JOBREL
01100		SUB	1,PREVLC
01200		CAML	1,@0(16)
01300		JRST	FIN
01400		MOVE	1,@0(16)
01500		ADD	1,PREVLC
01600		CALLI	1,11
01700		JRST	ERR
01800		MOVE	1,JOBREL
01900		SUB	1,PREVLC
02000		CAMGE	1,@0(16)
02100		TTCALL	3,ERR1
02300	FIN:	MOVE	1,TEMP
02400		JRA	16,1(16)
02500	ERR1:	ASCIZ	/WE DID NOT SEEM TO GET ENOUGH ROOM IN GCORE
02600	/
02700	ERR:	TTCALL	3,ERR2
02800		JRST	FIN
02900	ERR2:	ASCIZ	/WE GOT AN ERROR RETURN WITH A CORE UUO IN GCORE
03000	/
03100		PRGEND
     

00100	;	SUBROUTINE RCORE
00200	TITLE	RCORE
00300	ENTRY	RCORE
00400	EXTERN	PREVLC
00500	EXTERN	JOBREL
00600	TEMP:	0
00700	RCORE:	0
00800		MOVEM	1,TEMP
00900		MOVE	1,PREVLC
01000		CALLI	1,11
01100		TTCALL	3,ERR3
01200		MOVE	1,TEMP
01300		JRA	16,0(16)
01400	ERR3:	ASCIZ	/ERROR RETURN IN CORE UUO IN RCORE
01500	/
01600		END